﻿Imports Microsoft.VisualBasic

Namespace My
    Public Structure FormStatus
        Public Shared Approving As New FormStatus("WA")
        Public Shared Approved As New FormStatus("AP")
        Public Shared Rejected As New FormStatus("RJ")
        Public Shared Recalled As New FormStatus("RC")
        Public Shared Saved As New FormStatus("NA")

        Public Status As String

        Public Sub New(ByVal status As String)
            Me.Status = status
        End Sub

        Public Shared Operator =(ByVal value1 As FormStatus, ByVal value2 As FormStatus) As Boolean
            Return value1.Status = value2.Status
        End Operator

        Public Shared Operator <>(ByVal value1 As FormStatus, ByVal value2 As FormStatus) As Boolean
            Return value1.Status <> value2.Status
        End Operator

        Public Overrides Function ToString() As String
            Return Me.Status
        End Function
    End Structure

End Namespace
